gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\orderProcessSave.asp

    <!-- #include file = "include/sysbase.asp" -->
<%
	dim strSQL, cmdObj, rsObj
	dim nID
	nID = RealString(Request.Form("id"))
	Set cmdObj = Server.CreateObject("ADODB.Command")
	Set rsObj = Server.CreateObject("ADODB.RecordSet")
	cmdObj.CommandText = "SELECT * FROM OrderList WHERE id = "& nID
	cmdObj.CommandType = adCmdText
	Set cmdObj.ActiveConnection = conn
	'查找待修改的记录
	rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic
	rsObj("state") = 1			'设置为已处理
	rsObj("treatedDate") =now()	'处理日期
	rsObj("treatedRemark") = Request.Form("treatedRemark")	'处理说明
	rsObj.Update
	'关闭连接，将连接放放连接池
	rsObj.Close
	set rsObj = nothing
	set cmdObj = nothing
	CloseConn()
%>
<script language = javascript>
	<!--
	alert("处理成功！");
	this.document.location = "<%=Session("adminOldUrl")%>";
	-->
</script>